home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 November / 64er_Magazin_89-11_1989_Markt__Technik_de_Side_A.d64 / miniterm 1.0 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  563b  |  21 lines
  1. 10 poke53281,11:poke53280,3:print chr$(5):poke53272,23
  2. 20 printchr$(147):print"  [196][193][212][193]-[212][210][193][206][211][198][197][210]":open2,2,0,chr$(38)+chr$(33)
  3. 40 dim t%(127), p%(255):print" [197]inen [193]ugenblick bitte !"
  4. 60 forx=0to64:p%(x)=x:nextx
  5. 70 forx=65to90:p%(x)=x+32:nextx
  6. 80 forx=91to96:p%(x)=x:nextx
  7. 90 forx=97to122:p%(x)=x-32:nextx
  8. 100 forx=193to218:p%(x)=x-128:nextx
  9. 110 forx=0to126:t%(x)=p%(x):nextx
  10. 120 p%(148)=127:p%(127)=148:print" [207][206][204][201][206][197] "
  11. 140 get#2,a$
  12. 150 if a$=""then 190
  13. 160 if t%(asc(a$))=34 then poke212,0
  14. 170 printchr$(t%(asc(a$)));
  15. 180 goto140
  16. 190 getb$
  17. 200 ifb$=""then 140
  18. 210 if b$="^" then 240
  19. 220 print#2,chr$(p%(asc(b$)));:goto 140
  20. 240 print:print"- [196]atentransfer beendet - ":close2:rem ^ taste fuer ende:end
  21.